#!/usr/bin/perl 

use SOAP::Lite; 
use Data::Dumper; 

use warnings;
use strict;

use constant USER => 'dario';
use constant PASS => ''; 
use constant COLLECTION => '/db/3_8';

my $service = SOAP::Lite->service('http://localhost:8080/exist/services/Admin?WSDL'); 

my $session_id = $service->connect(USER, PASS); 

$service->createCollection($session_id, COLLECTION);

$service->disconnect($session_id);
